unit uf_log;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, mu_parser, OleCtrls, SHDocVw;

type
  Tflog = class(TForm)
    memo: TMemo;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  flog: Tflog;

implementation

uses hstruct;
{$R *.DFM}

procedure Tflog.FormActivate(Sender: TObject);
var
 st:Tstrings;
 i:integer;
 num:longint;

begin
 st:=TStringlist.create;
 st.loadfromfile(hostdir+'log.txt');
 if st.count>500 then num:=500 else num:=st.count-1;
 memo.Lines.Clear;
 memo.Lines.BeginUpdate;
 for i:=st.count-1 downto st.count-num do begin
  memo.Lines.add(st[i]);
 end;
 memo.Lines.endupdate;
 st.free;
end;


end.
